﻿Imports DTO
Imports DAO
Public Class DiemMonHocBUS
    Public Function KiemTra(ByVal DiemMonHoc As DiemMonHocDTO) As Integer
        Dim tempDAO As New DiemMonHocDAO
        Return tempDAO.KiemTra(DiemMonHoc)
    End Function
    Public Function LayMaDiemMon(ByVal DiemMonHoc As DiemMonHocDTO) As Integer
        Dim tempDAO As New DiemMonHocDAO
        Return tempDAO.LayMaDiemMon(DiemMonHoc)
    End Function
    Public Function ThemMaDiemMon(ByVal DiemMonHoc As DiemMonHocDTO)
        Dim tempDAO As New DiemMonHocDAO
        Return tempDAO.ThemMaDiemMon(DiemMonHoc)
    End Function
End Class
